{$CLEO .cs}

0000: NOP


0ACD: show_text_highpriority "Thread loaded" time 3000


 
WAIT 2500

REPEAT
WAIT 0 
      00A0: store_actor $PLAYER_ACTOR position_to 1@ 2@ 3@ 

        0AE1: 10@ = random_actor_near_point  1@ 2@ 3@   in_radius 40.0 find_next 1 pass_deads 1
         if 
        056D:   actor 10@ defined
        then
        089F: get_actor 10@ pedtype_to 30@
            if     
            30@ == 6
            then
                31@ = actor.Health(10@)
                if
                 31@ == 0 
                then
                    0792: disembark_instantly_actor 10@
                0687: clear_actor 10@ task
                 05BE: AS_actor 10@ die
                0762: AS_actor 10@ dies

                end 
            end
            
        end  
 UNTIL $ONMISSION == 0 
 
 end_Thread